home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / misc / edu / Calgor.lha / Cal / CalSource / ports.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-22  |  524 b   |  35 lines
  1. /* Copyright © 1995-1996 : David Atkinson */
  2. /* V1.21 Ports.c */
  3. /* Calgor */
  4.  
  5. #include <string.h>
  6. #include <fcntl.h>
  7. #include <dos/dos.h> /* get BPTR define */
  8. #include <stdio.h>
  9. #include <stdlib.h>
  10.  
  11. BPTR record;
  12.  
  13. void open_log(void)
  14. {
  15.  record = open("CalLog",MODE_NEWFILE);
  16.  if (record<0)
  17.    printf("Couldn't open CalLog file!\n");
  18. }
  19.  
  20. void close_file(void)
  21. {
  22.   if(record>=0)
  23.     close(record);
  24. }
  25.  
  26. void write_file(char *message)
  27. {
  28. long bytes_read;
  29.  
  30.   if(record>=0)
  31.     bytes_read=write(record,message,strlen(message));
  32. }
  33.  
  34.  
  35.